home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 9 / developer source - volume 9.iso / delph / may96 / rippf103.gif

< prev

next >

Graphics Interchange Format  |  1998-02-10  |  8KB  |  470x431  |  4-bit (14 colors)

Labels: text | electronics | screenshot | display | software | computer icon | operating system | web page | number
OCR: TILE.PAS X - Tile procedure TForml. FormPaint ( Sender: TObject) ; var XPos, yPos, bmpWidth, bmpHeight : LongInt; begin with myBitmap do begin bmpWidth : = Width; bmpHeight := Height; end; YPos : = 0; while yPos < Height do begin xPos : = 0; while xPos < Width do begin Canvas. Draw (xPos, yPos, myBitmap) ; XPos : = xPos + bmpWidth; end; yPos : = yPos + bmpHeight; end; end; 40: 1 Modified Insert

---